home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / amazin1a / module1.bas < prev    next >
BASIC Source File  |  1999-09-05  |  2KB  |  64 lines
  1. Attribute VB_Name = "Module1"
  2. Public Const MAX_PATH As Long = 260
  3.    Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
  4.    Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
  5.    Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  6.    Public Const FILE_ATTRIBUTE_HIDDEN = &H2
  7.    Public Const FILE_ATTRIBUTE_NORMAL = &H80
  8.    Public Const FILE_ATTRIBUTE_READONLY = &H1
  9.    Public Const FILE_ATTRIBUTE_SYSTEM = &H4
  10.    Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
  11.  
  12.  
  13.    Type FileTime
  14.        dwLowDateTime As Long
  15.        dwHighDateTime As Long
  16.        End Type
  17. Type SaveF
  18.  StingToSave As String
  19. End Type
  20.  
  21.  
  22.    Public Type WIN32_FIND_DATA
  23.        dwFileAttributes As Long
  24.        ftCreationTime As FileTime
  25.        ftLastAccessTime As FileTime
  26.        ftLastWriteTime As FileTime
  27.        nFileSizeHigh As Long
  28.        nFileSizeLow As Long
  29.        dwReserved0 As Long
  30.        dwReserved1 As Long
  31.        cFileName As String * MAX_PATH
  32.        cAlternate As String * 14
  33.        End Type
  34.  
  35.  
  36.    Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  37.  
  38.  
  39.    Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  40.  
  41.  
  42.    Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  43.  
  44.  
  45. Public Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
  46. Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
  47. Public NbFile As Long
  48. Public FileFSToOpen As String
  49. Public StringToFind As String
  50. Public ProgressCancel As Boolean
  51. Public TypeView
  52. Public Function StripNull(ByVal WhatStr As String) As String
  53.        Dim pos As Integer
  54.        pos = InStr(WhatStr, Chr$(0))
  55.        If pos > 0 Then
  56.            StripNull = Left$(WhatStr, pos - 1)
  57.        Else
  58.            StripNull = WhatStr
  59.        End If
  60. End Function
  61.  
  62.  
  63.            
  64.